// 1964 Recoding

global keepers1964 ""

numlabel, add

genl id=v2
global keepers1964 $keepers1964 id

keep if v11==1

genl year=1964
global keepers1964 $keepers1964 year

genl wt=v12
global keepers1964 $keepers1964 wt

genl incomehh=v1005
genl incomer=v1013
recode incomehh 1=125 2=300 3=400 4=500 5=600 6=700 7=800 8=900 9=1075 10=1325 11=1575 12=1825 13=1950
recode incomer 1=125 2=300 3=400 4=500 5=600 6=700 7=800 8=900 9=1075 10=1325 11=1575 12=1825 13=1950
genl income=incomehh
replace income=incomer if incomehh==. & incomer~=.
replace income=incomehh+incomer if incomer~=. & incomehh~=.
genl income3=income
centile income, c(33 66 100)
replace income3=0 if income<=r(c_1)
centile income, c(33 66 100)
replace income3=1 if income>r(c_1) & income<=r(c_2)
centile income, c(33 66 100)
replace income3=2 if income>r(c_2) & income<=r(c_3)
global keepers1964 $keepers1964 income3

/* genl vote_ce=v1161
recode vote_ce 2/5 = 0 
This variable was recoded as follows, 19/7/13: */

*drop vote_ce
genl vote_ce=v363
recode vote_ce 2/5 = 0 
global keepers1964 $keepers1964 vote_ce

genl turnout=v356
recode turnout 5=0
global keepers1964 $keepers1964 turnout

genl pid_ce=v445
recode pid_ce 2/5 . = 0 
global keepers1964 $keepers1964 pid_ce


// Campaign Interest

gen intcampnew = v126
recode intcampnew 1=1 2=.5 3=0
tab v126 intcampnew
label variable intcampnew "campaing interest new"
label define campinterest 1 "1=high interest" 0 "low interest"
label values intcampnew campinterest
global keepers1964 $keepers1964 intcampnew


// General Interest in Pols

gen ptymembnew = v414
recode ptymembnew 1=1 5=0
tab v414 ptymembnew
label variable ptymembnew "paid party subscription new"
label define ptymember 1 "1=member" 0 "not member"
label values ptymembnew ptymember
global keepers1964 $keepers1964 ptymembnew

gen ptyworknew = v406
recode ptyworknew 1=1 5=0
tab v406 ptyworknew
label variable ptyworknew "worked for party new"
label define ptywrk 1 "1=worked for party" 0 "didn't work for party"
label values ptyworknew ptywrk
global keepers1964 $keepers1964 ptyworknew


// Issue Involvement

gen intissuenew = v441
recode intissuenew 1=1 5=0
tab v441 intissuenew
label variable intissuenew "cared about who won new"
label define care 1 "1=cared" 0 "didn't care"
label values intissuenew care
global keepers1964 $keepers1964 intissuenew


// Media Exposure

gen npexpnew = v71
recode npexpnew 1=1 5=0
tab v71 npexpnew
label variable npexpnew "reads newspaper new"
label define reads 1 "1=reads np" 0 "doesn't read np"
label values npexpnew reads
global keepers1964 $keepers1964 npexpnew

gen tvfollownew = v63
recode tvfollownew 1=1 5=0
tab v63 tvfollownew
label variable tvfollownew "followed campaign on tv new"
label define follows 1 "1=followed" 0 "didn't follow"
label values tvfollownew follows
global keepers1964 $keepers1964 tvfollownew

gen npfollownew = v84
recode npfollownew 1=1 5=0
tab v84 npfollownew
label variable npfollownew "followed campaign in newspaper new"
label values npfollownew follows
global keepers1964 $keepers1964 npfollownew


// Ideology

gen taxspendnew = v232
recode taxspendnew 1=1 5=0
label variable taxspendnew "social spending new"
label define spend 1 "1=pro-spending" 
label values taxspendnew spend
tab v232 taxspendnew
global keepers1964 $keepers1964 taxspendnew

gen leftrightselfnew = v305
recode leftrightselfnew 1=1 2=.5 3=0 4=.5 8=. 9=.5 0=.
label variable leftrightselfnew "left-right self placement new"
label define lr 1 "1=left"
label values leftrightselfnew lr
tab leftrightselfnew v305
global keepers1964 $keepers1964 leftrightselfnew

gen stateownnew = v215
replace stateownnew = (abs(stateownnew-4))/3
label variable stateownnew "nationalisation new"
label define natnlown 1 "1=pro-nationalisation"
label values stateownnew natnlown
tab v215 stateownnew
global keepers1964 $keepers1964 stateownnew

gen buspowernew = v249
recode buspowernew 1=1 5=0
label variable buspowernew "business power new"
label define powers 1 "1=too much power"
label values buspowernew powers
tab buspowernew v249
global keepers1964 $keepers1964 buspowernew

gen unionpowernew = v228
recode unionpowernew 1=1 5=0
label variable unionpowernew "union power new"
label values unionpowernew powers
tab unionpowernew v228
global keepers1964 $keepers1964 unionpowernew


// Class/occupation

gen class_head_grade = v964
*label variable class_head_grade ""
label define LblClassGrade 1 "A: (Higher man.; prof." 2 "B: Lower man.; admin." 3 "C1A: Skilled; supervis. non-manu." 4 "C1B: Lower non-manu." 5 "C2: Skilled manu." 6 "D: Unskilled manu."
label values class_head_grade LblClassGrade
global keepers1964 $keepers1964 class_head_grade

gen class_resp_grade = v980
*label variable class_head_grade ""
label values class_resp_grade LblClassGrade
global keepers1964 $keepers1964 class_resp_grade

gen male = v930
recode male 1=1 2=0
global keepers1964 $keepers1964 male

gen married = v934
recode married 1=0 2=1 3=0
global keepers1964 $keepers1964 married

gen unionmem_resp = v859
recode unionmem_resp 1=1 5=0
global keepers1964 $keepers1964 unionmem_resp

gen unionmem_hous = v878
recode unionmem_hous 1=1 5=0
global keepers1964 $keepers1964 unionmem_hous



// Economic perceptions

gen econ_ego_retro = v330
recode econ_ego_retro 1=2 2=0 3=1
global keepers1964 $keepers1964 econ_ego_retro
